home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 3
/
Cream of the Crop 3.iso
/
clipper
/
ks94an.zip
/
FSCREEN.HDR
< prev
next >
Wrap
Text File
|
1994-04-25
|
3KB
|
68 lines
/******************************************************************************
The Klipper Library, for CA-Clipper 5.x
Copyright (c), 1994, Wallace Information Systems Engineering
FUNCTION:
_FScreen( cScrMsg , cKeyList , cHeader ) --> NIL
PARAMETERS:
cScrMsg : Text for SCREEN_TITLE line MAXROWS()-2
cKeyList : Text for Key List Line MAXROWS()-1
cHeader : Text for Screen Header Line 1
SHORT:
Display a standard KLIPPER screen.
DESCRIPTION:
_Fscreen() is a screen draw function that is used to refresh screens in a
uniform manner. It is designed to be used with _Menu(), and _KeyList(), and
other functions which are used together to build screen i/o with a uniform
appearance.
Each screen has three user definable areas. The top screen header line and
the two bottom lines. The next to the bottom line is the screen title line
and the bottom line is the _KeyList() line where key help and other user
messages are expected to appear.
NOTE:
_FScreen() is fashioned after a popular menuing system. It helps your
applications fit smoothly with the Saber Menu System (TM?). I originally
wrote applications that were run under Saber Menu System on Novell.
The _FScreen() function thereby made my application almost completely
transparent. It became almost indiscernable when the user had left the menu
system and had entered the application (and vice versa).
_Fscreen() was used to do the screen of the KLIPDOCS.EXE demo program.
Optionally, you may control the color of the screen drawn by declaring
any/none of the following variables in your source code:
PRIVATE _FSHeadColor := 'W+/G' // Use high white on green for cHeader Area
PRIVATE _FSTitlColor := 'W+/B' // Use high white on blue for cScrMsg Line
PRIVATE _FSBottColor := 'W+/R' // Use high white on red for cKeyList Line
PRIVATE _FSDeskColor := 'w+/B' // Use high white on blue for DeskTop Area
PRIVATE _FSDeskChar := repl('░',9) // Use ░ as the desktop bckgrnd char
Note _FSDeskChar is a character scheme that is passed to the BOX command. It
must be nine characters in length or the results will be unpredictable.
Another desktop scheme might be chr(176) as a background, with a bordering
box:
PRIVATE _FSDeskChar := '┌─┐│┘─└│░'
EXAMPLE:
_FScreen('Departmental Expense Report System - Version 1.0', ;
'F1 - Help, ESC Exit, Use Arrow Keys, ENTER to Accept', ;
'The XYZ Corporation of America')
******************************************************************************/